home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART DRIFTING CIRCLE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  487b  |  24 lines
  1. 1  FOR J = 768 TO 781: READ I: POKE J,I: NEXT : DATA 3,0,8,0,10,0,12,0,4,0,128,0,16,0: POKE 232,0: POKE 233,3
  2. 10  HGR 
  3. 20  POKE 49234,0
  4. 21 :
  5. 25  HCOLOR= 4: HPLOT 0,0: CALL 62454
  6. 27  HCOLOR= 0
  7. 28  FOR Z = 0 TO 95: HPLOT 140,Z TO 279,Z: NEXT 
  8. 29  FOR Z = 96 TO 191: HPLOT 0,Z TO 139,Z: NEXT 
  9. 30 :
  10. 35  HPLOT 84,95
  11. 50  ROT= 8
  12. 65  SCALE= 1
  13. 70  DRAW 2: DRAW 2
  14. 80  GOSUB 100
  15. 90  GOTO 50
  16. 98  END 
  17. 99 :
  18. 100  REM 
  19. 101  SCALE= 5
  20. 105  FOR I = 1 TO 64
  21. 115  ROT= I
  22. 120  XDRAW 1
  23. 130  NEXT 
  24. 200  RETURN